home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / paslib.arc / BINARY.INC < prev    next >
Encoding:
Text File  |  1986-09-22  |  612 b   |  17 lines
  1. {*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-}
  2. TYPE STRING19 = STRING[19];
  3.  
  4. FUNCTION BINARY(V:INTEGER):STRING19;
  5.          VAR
  6.             I:INTEGER;
  7.             B:ARRAY[0..3] OF STRING[4];
  8.  
  9.          BEGIN
  10.               FOR I:=0 TO 15 DO
  11.                   IF (V AND (1 SHL (15-I)))<>0 THEN B[I DIV 4][(I MOD 4)+1]:='1'
  12.                   ELSE B[I DIV 4][(I MOD 4)+1]:='0';
  13.               FOR I:=0 TO 3 DO B[I][0]:=CHR(4);
  14.               BINARY:=B[0]+'-'+B[1]+'-'+B[2]+'-'+B[3];
  15.          END;
  16. {*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-}
  17.